home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / vic boink (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  566b  |  22 lines
  1. 1 rem sound effects
  2. 2 rem boink (vic version)
  3. 10 gosub 900:goto 100
  4. 20 poke fr(0),p(20):poke fr(1),0:poke fr(2),0:poke fr(3),p(20)
  5. 30 print "."
  6. 40 for i=15 to 0 step -1:poke vl,i:next:poke fr(3),0
  7. 50 for i=1 to 15 step 2:poke fr(0),p(100+i):poke vl,i:next
  8. 60 for i=0 to 3:poke fr(i),0:next:poke vl,0
  9. 90 return
  10. 99 rem routine to play sounds when shift is pressed
  11. 100 print "press shift";
  12. 110 if peek(653)=0 then 110
  13. 120 gosub 20:goto 100
  14. 898 rem routine to set up variables
  15. 899 rem set up sound control addresses
  16. 900 dim fr(3),p(127)
  17. 910 fr(0)=36874:for i=1 to 3:fr(i)=fr(i-1)+1:next
  18. 920 for i=0 to 127:p(i)=i+128:next
  19. 929 rem set volume address
  20. 930 vl=36878
  21. 990 return
  22.